home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 5 / Amiga Plus Sonderheft 1996 #5.iso / programme / xtrace / install < prev    next >
Text File  |  1996-05-12  |  12KB  |  309 lines
  1. ; $VER: Install 1.01
  2. ; Script to install XTrace V 1.01
  3.  
  4. ; ============================================================================
  5. ; Variables
  6. ; ============================================================================
  7.  
  8. (SET OSVersion        (/ (getversion) 65536))
  9. (SET TRUE        1)
  10. (SET FALSE        0)
  11. (SET CPU        (database "cpu"))
  12. (SET update        FALSE)
  13.  
  14. ; ============================================================================
  15. ; Strings
  16. ; ============================================================================
  17.  
  18. (IF (= @language "deutsch")
  19.  (
  20.   ; ===== German strings
  21.  
  22.   (SET Msg_Kick          "Tut mir leid, aber XTrace benötigt mindestens AmigaDOS V3.0.")
  23.   (SET Msg_Welcome       "Willkommen bei der Installation von XTrace V1.01 !\nCopyright by Ronny Schütz / Condor's, Inc. Leipzig\nAll rights reserved.\n\nSie können jederzeit die Installation abbrechen und alle installierten Teile von XTrace werden gelöscht.\n\nFalls Sie sich entscheiden XTrace zu löschen brauchen Sie nur die XTrace-Schublade entfernen.")
  24.   (SET Msg_Bye           "Danke das Sie XTrace installiert haben. Vergessen Sie nicht sich registrieren zu lassen !")
  25.   (SET Msg_Dir           "Wählen Sie bitte ein Verzeichnis in dem XTrace installiert werden soll. Ein eigenes XTrace Verzeichnis wird angelegt. Es sollten 650 Kb auf dem Datenträger frei sein.")
  26.   (SET Msg_Proc          "Wählen Sie den/die Prozessor(en) Ihres Amigas®. Ihre Konfiguration sollte bereits ausgewählt sein.")
  27.  
  28.   (SET Msg_ExtractMain   "Extrahiere Hauptprogramm.\n")
  29.   (SET Msg_ExtractFilt   "Extrahiere Filter.")
  30.   (SET Msg_ExtractExam   "Extrahiere Beispiele.")
  31.   (SET Msg_ExtractIGui   "Extrahiere Icons und Guide.")
  32.   (SET Msg_68000     "Erstelle MC68000er Version.")
  33.   (SET Msg_68020     "Erstelle MC68020er Version.")
  34.   (SET Msg_68030     "Erstelle MC68030er Version.")
  35.   (SET Msg_68030FPU     "Erstelle MC68030er + M68882 Version.")
  36.   (SET Msg_68040     "Erstelle MC68040er Version.")
  37.   (SET Msg_CopyLibs     "Kopiere Libraries.\nNur neuere Versionen als im LIBS: werden kopiert.")
  38.  
  39.   (SET Msg_Abort         "Installation abgebrochen. Wollen Sie die bereits installierten Dateien löschen ?\n\nFalls Sie eine existierende Version von XTrace geupdated haben könnte diese bereits überschrieben worden sein. Installieren Sie sie bitte neu.\n\n")
  40.   (SET Msg_Abort_RYes    "Ja, entfernen")
  41.   (SET Msg_Abort_RNo     "Nein")
  42.  
  43.   (SET Msg_AbortOnly     "Installation abgebrochen.")
  44.  
  45.   (SET Msg_Update        "\nACHTUNG !\n\nSie updaten XTrace !\n\nDas alte XTrace-Hauptprogramm, die Hilfsdatei, die Settings, die Icons und die Filter werden (teilweise) überschrieben bzw. gelöscht !!!\n")
  46.   (SET Msg_Update_Abort  "Update abbrechen")
  47.   (SET Msg_Update_Overw  "Überschreiben")
  48.  )
  49.  (
  50.   ; ===== English strings
  51.  
  52.   (SET Msg_Kick          "Sorry, but XTrace requires AmigaDOS V3.0.")
  53.   (SET Msg_Welcome       "Welcome to the installation of XTrace V 1.01 !\nCopyright by Ronny Schütz / Condor's, Inc. Leipzig\nAll rights reserved.\n\nYou can always abort the installation and the installed parts will be safely deleted.\n\nIf you decide to uninstall XTrace, only delete the XTrace drawer.")
  54.   (SET Msg_Bye           "Thanks for installing XTrace. Don't forget to register !")
  55.   (SET Msg_Dir           "Please choose a directory to install XTrace. A own XTrace directory will be created. There should be 650 Kb free.")
  56.   (SET Msg_Proc          "Choose the processor(s) of your Amiga®. Your configuration should be already choosen.")
  57.  
  58.   (SET Msg_ExtractMain   "Extracting main program.\n")
  59.   (SET Msg_ExtractFilt   "Extracting filters.")
  60.   (SET Msg_ExtractExam   "Extracting examples.")
  61.   (SET Msg_ExtractIGui   "Extracting icons and guide.")
  62.   (SET Msg_68000     "Create version for MC68000.")
  63.   (SET Msg_68020     "Create version for MC68020.")
  64.   (SET Msg_68030     "Create version for MC68030.")
  65.   (SET Msg_68030FPU     "Create version for MC68030 and M68882.")
  66.   (SET Msg_68040     "Create version for MC68040.")
  67.   (SET Msg_CopyLibs      "Copy libraries.\nOnly newer versions as in LIBS: will be copied.")
  68.  
  69.   (SET Msg_Abort         "Installation aborted. Do you want to delete the files that were installed?\n\nIf you are updating an existing version of XTrace, it may have already been overwritten, so you must reinstall it.\n\n")
  70.   (SET Msg_Abort_RYes    "Yes, remove")
  71.   (SET Msg_Abort_RNo     "No")
  72.  
  73.   (SET Msg_AbortOnly     "Installation aborted.")
  74.  
  75.   (SET Msg_Update        "\nATTENTION !\n\nYou're updating XTrace !\n\nThe old main XTrace binary, the guide, the settings, the icons and the filters will be (partial) overwritten or deleted !!!")
  76.   (SET Msg_Update_Abort  "Abort update")
  77.   (SET Msg_Update_Overw  "Overwrite")
  78.  )
  79. )
  80.  
  81. ; ============================================================================
  82. ; Initialization
  83. ; ============================================================================
  84.  
  85. ; ===== Make sure that we are running under 3.0 or better
  86. (IF (< OSVersion 39) (ABORT Msg_Kick))
  87.  
  88. ; ===== Set up error routine
  89.  
  90. (ONERROR
  91.  (IF (EXISTS "XTDest:" (NOREQ))
  92.  (
  93.   (IF (ASKBOOL
  94.    (PROMPT Msg_Abort)
  95.    (HELP " ")
  96.    (CHOICES Msg_Abort_RYes
  97.             Msg_Abort_RNo)
  98.    (DEFAULT 0))
  99.    (
  100.     (RUN "delete XTDest:XTrace ALL FORCE QUIET")
  101.     (DELETE "XTDest:XTrace.info")
  102.    )
  103.   )
  104.  
  105.   (MAKEASSIGN "XTSrc"  (SAFE))
  106.   (MAKEASSIGN "XTDest" (SAFE))
  107.  ))
  108. )
  109.  
  110. ; ============================================================================
  111. ; Installation
  112. ; ============================================================================
  113.  
  114. (MESSAGE Msg_Welcome)
  115. (COMPLETE 0)
  116.  
  117. ; ===== cancel the assign in case of installation restart
  118.  
  119. (MAKEASSIGN "XTSrc" (SAFE))
  120. (MAKEASSIGN "XTDest" (SAFE))
  121.  
  122. ; ============================================================================
  123. ; Ask for directory and create
  124. ; ============================================================================
  125.  
  126. (SET XTDest (TACKON (ASKDIR (PROMPT Msg_Dir) (HELP "") (DEFAULT @default-dest)) "XTrace" ))
  127.  
  128. (MAKEASSIGN "XTDest" (PATHONLY XTDest) (SAFE))
  129.  
  130. (IF (EXISTS "XTDest:XTrace") (SET update TRUE) (MAKEDIR "XTDest:XTrace"))
  131.  
  132. (MAKEASSIGN "XTSrc" "")
  133. (SET @default-dest (EXPANDPATH "XTDest:"))
  134.  
  135. ; ============================================================================
  136. ; Check for update 
  137. ; ============================================================================
  138.  
  139. (IF (= update TRUE)
  140.  (
  141.   IF(ASKBOOL (PROMPT Msg_Update) (HELP " ") (CHOICES Msg_Update_Overw Msg_Update_Abort) (DEFAULT 0))
  142.   (
  143.    ; ===== Delete binary, settings, guides
  144.  
  145.    (RUN "delete XTDest:XTrace/XTrace XTDest:XTrace/XTrace.info XTDest:XTrace/Guides/#? XTDest:XTrace/Prefs/#? QUIET FORCE")
  146.   )
  147.   (
  148.    ; ===== Remove assigns
  149.  
  150.    (MAKEASSIGN "XTSrc"  (SAFE))
  151.    (MAKEASSIGN "XTDest" (SAFE))
  152.  
  153.    (EXIT Msg_AbortOnly)
  154.   )
  155.  )
  156. )
  157.  
  158. ; ============================================================================
  159. ; Ask for processor 
  160. ; ============================================================================
  161.  
  162. (IF(EXISTS("c:CPU")) (SET FPU (RUN "c:CPU CHECK 68882")) (SET FPU 5))
  163.  
  164. (IF (OR (= CPU "68000") (= CPU "68010")) (SET Processor 0))
  165. (IF (= CPU "68020")                      (SET Processor 1))
  166. (IF (= CPU "68030") (IF (<> FPU 0)       (SET Processor 2) (SET Processor 3)))
  167. (IF (OR (= CPU "68040") (= CPU "68060")) (SET Processor 4))
  168.  
  169. (IF (= @user-level 2)
  170.  (SET Processor
  171.   (ASKCHOICE
  172.    (PROMPT Msg_Proc)
  173.    (HELP "")
  174.    (CHOICES "MC 68000"
  175.             "MC 68020"
  176.             "MC 68030"
  177.             "MC 68030 & FPU (M68882)"
  178.         "MC 68040")
  179.    (DEFAULT Processor)
  180.   )
  181.  )
  182. )
  183.  
  184. ; ============================================================================
  185. ; Install main program
  186. ; ============================================================================
  187.  
  188. ; ===== Extracting main program
  189.  
  190. (WORKING Msg_ExtractMain)
  191. (RUN "XTSrc:c/UnLZX >NIL: <NIL: x -m XTSrc:Bin.lzx XTrace.68000 XTDest:XTrace/")
  192.  
  193. (IF (= Processor 0)
  194.  (
  195.   (WORKING Msg_ExtractMain Msg_68000)
  196.   (RENAME "XTDest:XTrace/XTrace.68000" "XTDest:XTrace/XTrace")
  197.  )
  198. )
  199.  
  200. (IF (= Processor 1)
  201.  (
  202.   (WORKING Msg_ExtractMain Msg_68020)
  203.   (RUN "XTSrc:c/UnLZX >NIL: <NIL: x -m XTSrc:Bin.lzx XTrace.68020.pch XTDest:XTrace/")
  204.   (RUN "XTSrc:c/spatch >NIL: <NIL: -oXTDest:XTrace/XTrace -pXTDest:XTrace/XTrace.68020.pch XTDest:XTrace/XTrace.68000")
  205.  ) 
  206. )
  207.  
  208. (IF (= Processor 2)
  209.  (
  210.   (WORKING Msg_ExtractMain Msg_68030)
  211.   (RUN "XTSrc:c/UnLZX >NIL: <NIL: x -m XTSrc:Bin.lzx XTrace.68030.pch XTDest:XTrace/")
  212.   (RUN "XTSrc:c/spatch >NIL: <NIL: -oXTDest:XTrace/XTrace -pXTDest:XTrace/XTrace.68030.pch XTDest:XTrace/XTrace.68000")
  213.  ) 
  214. )
  215.  
  216. (IF (= Processor 3)
  217.  (
  218.   (WORKING Msg_ExtractMain Msg_68030FPU)
  219.   (RUN "XTSrc:c/UnLZX >NIL: <NIL: x -m XTSrc:Bin.lzx XTrace.68030FPU.pch XTDest:XTrace/")
  220.   (RUN "XTSrc:c/spatch >NIL: <NIL: -oXTDest:XTrace/XTrace -pXTDest:XTrace/XTrace.68030FPU.pch XTDest:XTrace/XTrace.68000")
  221.  ) 
  222. )
  223.  
  224. (IF (= Processor 4)
  225.  (
  226.   (WORKING Msg_ExtractMain Msg_68040)
  227.   (RUN "XTSrc:c/UnLZX >NIL: <NIL: x -m XTSrc:Bin.lzx XTrace.68040.pch XTDest:XTrace/")
  228.   (RUN "XTSrc:c/spatch >NIL: <NIL: -oXTDest:XTrace/XTrace -pXTDest:XTrace/XTrace.68040.pch XTDest:XTrace/XTrace.68000")
  229.  ) 
  230. )
  231.  
  232. (RUN "delete XTDest:XTrace/#?.pch XTDest:XTrace/XTrace.68000 QUIET FORCE")
  233. (RUN "copy XTSrc:XTrace.info XTDest:XTrace/XTrace.info")
  234.  
  235. ; ============================================================================
  236. ; Extract filters
  237. ; ============================================================================
  238.  
  239. (COMPLETE 20)
  240.  
  241. ; ===== Left filters unchanged if there is always a filters directory
  242.  
  243. (WORKING Msg_ExtractFilt)
  244.  
  245. (IF (NOT (EXISTS "XTDest:XTrace/Filters")) (MAKEDIR "XTDest:XTrace/Filters"))
  246. (RUN "XTSrc:c/UnLZX >NIL: <NIL: x -m XTSrc:Filters.lzx XTDest:XTrace/Filters/")
  247.  
  248. ; ============================================================================
  249. ; Extract examples
  250. ; ============================================================================
  251.  
  252. (COMPLETE 40)
  253. (WORKING Msg_ExtractExam)
  254.  
  255. (RUN "XTSrc:c/UnLZX >NIL: <NIL: x -m XTSrc:Examples.lzx XTDest:XTrace/")
  256.  
  257. ; ============================================================================
  258. ; Copy icons & guide
  259. ; ============================================================================
  260.  
  261. (COMPLETE 60)
  262. (WORKING Msg_ExtractIGui)
  263. (IF (NOT (EXISTS "XTDest:XTrace/Icons"))  (MAKEDIR "XTDest:XTrace/Icons"))
  264. (IF (NOT (EXISTS "XTDest:XTrace/Guides")) (MAKEDIR "XTDest:XTrace/Guides"))
  265.  
  266. (COPYFILES (SOURCE "XTSrc:Icons/") (DEST "XTDest:XTrace/Icons/") (PATTERN "defxt_#?.info"))
  267.  
  268. (RUN "copy XTSrc:Icons/Drawer_XTrace.info XTDest:XTrace.info")
  269. (RUN "copy XTSrc:Icons/Drawer_Guides.info XTDest:XTrace/Guides.info")
  270. (RUN "copy XTSrc:Icons/XTrace.info XTDest:XTrace/XTrace.info")
  271.  
  272. ; Fit icons
  273.  
  274. (TOOLTYPE (DEST "XTDest:XTrace") (NOPOSITION))
  275. (TOOLTYPE (DEST "XTDest:XTrace/IFFILBM/Intel_Outside.ILBM") (SETDEFAULTTOOL (EXPANDPATH "XTDest:XTrace/XTrace"))) 
  276.  
  277. ; ===== Guides, map and text files
  278.  
  279. (COPYFILES (SOURCE "XTSrc:Guides/") (DEST "XTDest:XTrace/Guides/") (PATTERN "#?"))
  280. (COPYFILES (SOURCE "XTSrc:") (DEST "XTDest:XTrace/") (PATTERN "(Read_Me_First#?|RegisterForm#?|XPK_Overview#?|ReqTools_Distribution#?)"))
  281.  
  282. ; ============================================================================
  283. ; Copy libs
  284. ; ============================================================================
  285.  
  286. (COMPLETE 80)
  287. (WORKING Msg_CopyLibs)
  288.  
  289. (IF (NOT (EXISTS "LIBS:Compressors")) (MAKEDIR "LIBS:Compressors"))
  290.  
  291. (COPYLIB (SOURCE "XTSrc:Libs/reqtools.library")            (DEST "Libs:"))
  292. (COPYLIB (SOURCE "XTSrc:Libs/xpkmaster.library")           (DEST "Libs:"))
  293. (COPYLIB (SOURCE "XTSrc:Libs/Compressors/xpkSHRI.library") (DEST "Libs:Compressors/")) 
  294. (COPYLIB (SOURCE "XTSrc:Libs/Compressors/xpkNUKE.library") (DEST "Libs:Compressors/"))
  295. (COPYLIB (SOURCE "XTSrc:Libs/Compressors/xpkIMPL.library") (DEST "Libs:Compressors/"))
  296. (COPYLIB (SOURCE "XTSrc:Libs/Compressors/xpkHUFF.library") (DEST "Libs:Compressors/"))
  297. (COPYLIB (SOURCE "XTSrc:Libs/Compressors/xpkBLZW.library") (DEST "Libs:Compressors/"))
  298.  
  299. ; ============================================================================
  300. ; Cleanup & End
  301. ; ============================================================================
  302.  
  303. (COMPLETE 100)
  304.  
  305. (MAKEASSIGN "XTSrc"  (SAFE))
  306. (MAKEASSIGN "XTDest" (SAFE))
  307.  
  308. (EXIT Msg_Bye)
  309.